SIN (Sinclair Informations Nouvelles)

SINCLAIR INFORHA
Ho, ó

janvie

SOLITAIRE,

“5

un cl

ONS NOU

GRICE |
ELL

ES-

Du

Kc

D

i H
de ceux-

m
=
D yu

Š
a

taiñ

=h

Gti

of
Hr

IO SE TIMEX-SINCLAIR
7274 STN A, TORONTO CANADA MSW 149,

nt la nouvelle année qui déu

á tes und AN annonce la sort
3 nouveaux ordinateurs. Li

orte

IT

du
ril NV

Ha EH im 1

"sI

ctions du BASIC du 2068 qui peut sembler mystérieuse

ction IN Elle donne la valeur d’un port
ie spécifique. Le clavier étant un port d'entrée,
onc le lire avec IN. Mais pourquoi utiliser IN
KEYS remplit déjà trés bien cette tâche! L'avantage
on IN est que nous pouvons détecter si plusieurs
apouuges en même temps.

Ë
rsqu’une touche est appuyée, un contact
e et ja colonne,

1
ba

Tapez ce petit programme: 10 PRINT AT DO IN 327667" *

20 GOTO 15
si aucune touche n'est appuyée les bits seront toutes à "1", ce
qui équivaut à 31 en décimal. $i

a
40, car la bit] est tombée 3

aurons dih pour indiquée qu'une
touche est appuyée, Si maintenant on appuie sur ESPACE et Ë en
même temps, nous aurons 14, car la bit4 (-16) et la bn (-1)
sont à "D",

ADRESSE DU PORT Bit à — si touche ی‎

co

[T1] >

m yyy 7
D — Z t

mom
E to -0

dr -4 un

Li

Ka
ra

«esten fait la même que la barre ESPACE,
onséquent une lecture du clavier en ASSEMBLEUR e
i a touche X "es t a ap

"
ve, Gu bien nous
couve à 8201d. Au
°" si BREAK est
d'une routine machine

=
co S: ` >

KE
Di
fi
E
=
E
k;

vi

indi

“E

اس

T

HEN PRINT AT utubyxtxby PAPER 65 INK D; CIRE LET bbiy

et?

#4

30 FOR y=1 TO 9: FOR x=1 TO 9: IF 453 AND 7

WAR

40 NEXT x! N e y

ep LET oe: LET 6$(5,5)="E": PRINT AT 5+9b,5+xb; PAPER 6: INK
zi CHRE 144

o PLOT 87,57: DRAW 73.0: DRAW 0,73: DRAW -73,0: DRAW O,-7
5

x=1
AT 4,10; INVERSE 1;"MOUVEMENT 7°

105 PRINT

103 ri l `

107 IF INKEY$ <> s" THEN GG TG 107

120 PRINT AT gesi OVER 13 BRIGHT 1; INK B; PAPER 8; FLASH 13"
0

130 LET

134 PRINT erter AND e

136 PAUSE ۰

140 IF

145 IF a$

150 IF a$="5" GR a$="8" THEN Gû TO 200

160 IF a$ <> Ge AR ü
1

D > "7° THEN FEEF. 22 60 TO 11
; PAPER B; OVER 15 INK ۳ `: PÀ y=y+(a$="h"
D y7

~J

ca
oe

ID Co

4 E
rr

T aš= INKEYS ¢ IF añ="" THEN 60 To 520

iF ag="1" THEN BEEP 1,۰01: 60 TO 105
SC IF a$="&5" AND me = 7 THEN 60 TO 1000
350 IF a$="5" AND a b= 3 THEN GO TQ 1190
60 IF a$="7" AND b >= 3 THEN GO TO 1200

i <= 7 THEN GO TO 1300

D bš(b+2,a)="E* THEN LET ydel: LET. sde

D bš$(b,a-2)=*"E* THEN j T xd=-

2031 SR Ma 07
2010 PRINT AT yyx} PAPER Ar INK 2; a i

44: LET 08! و‎ (22۰ L
=atxdi PRINT AT used PA
{

x
os ون‎ 22*۲۳: LET u=u+ud:
E T AT gesi PAPER Ar INK
Dj CHRS 147
2011 LET g=g+1
2020 LET b$1b, x-2 u=u-2*yd: GO TO 105
3000 LET + AIRE S
8310 PRINT #0; AT 0,077 FOR i=1 TO LEN té: BEEP ¿Dis CODE tii)

irons

+
L

sor

ne

n tués

H
D

ive qui

or

icri

fi

E

gramme SEY

O

Ce pr

colère.

ER
D.

l'option

Choississez

ie.

Paik

12

Di L
i rt
=> me er

tae CT et CH

t

Coy

d

4 74
milita

coup plus compact.

in programme beau

n
a

5a

D
1

ra

(3

Uni ri

VULL

le

PEER

opérat

dresses pointéas

comment

236337 26S PEER

fod

ion

Far

auie Ï que

4

col
١ DEF FN y(ligne}=(21-ligne) #2
+ PRINT AT : DEF FN ciposx)=INT (posx/8)

DEF FN 1íposy)=21-INT(posy/B)
Voici une application possible de 2 de ces fonctions!

a
tt
nn

bet
mr
Les

Ee
C
r-

mora ra PTI
-4

E
r~
4
tm

DD PRINT AT L
n

~d Cr
c =

CO
a

EN yil: DRAW 0,8
90 DRAW (28)+1,0: ‘DRAW 0,-7
100 DRAW -((B88)+1), 0

a

La commande DRAW du 2068 fonctionne du maniére différente de la
plupart des autres BASICS leg. MICROSOFT), Nous devons spécifier
le déplacement en K et en Y, ainsi si nous faisons un point à
(0,0) et que nous voulons tracer une ligne jusqu'á (50,79). on
doit indiquer un déplacement en X de 50 et en Y de 75.

Avec le BASIC MICROSOFT, la commande DRAW demande seulement la
cordonnée du point à etre en dans ce cas on aurait DRAW
75 . Alors un ligne serait tracé entre le dernier PLOT (0,0)

et la coordonnée que nous venons de spécifier,

Nous allons définir 2 fonctior façon
HICROSOFT, 1) BEF

93 REF

ii "As

sont 2 vari indiquent les

i ust u
coordonnées du dernier point affiché à l'écran avec PLOT. Dans
le programme qui suit nous allons faire une PLOT (10,5) et nous
allons tracer une ligne jusqu'à (50,100) à la manière MICROSOFT.
10 DEF FN X(H1=H-PEEK 23677
20 DEF FH Y(L)=L-PEEK 23678
E

a0 PLOT 10,5
40 DRAW FN X(50),FN 00۱

Voici un petit truc pour changer les attributs d'un endroit

spécifique à l'écran. La zone méncir i s'occupe des attributs

se trouve à 27528-23294, soit 788 octets, L’octet qui definit

l’attribut trouve toute sa signification si on le regarde sous
t inali
F

donc toute le nt à Û" -> 000 (0 décimal},

ence de toute les couleurs, -+111

its

Ü
=
5

3
1 3 5 D 5
ndis que le Blanc est la pré
décimal}. La fonction ATIF nous retourne la valeur des

ttributs à une position donnée: si PRINT ATTR (10,0) nous donne
, on peut en conclure que à la ligne 10, colonne Û, le
caractère FLASH, le PAPER est CYAN et le INK est MAGENTA, car

171 en binaire estel 0 i Û 1 0 1 1.
SAA E RS
FLASHI { PAPER CYAN INK MAGENTA

BRIGHTG (5) (Z)

contraire n'est pas possible, on ne peut
»O)=170 pour changer notre INK MAGENTA en un
ion utilisant la puissante commande
FN alx,y)=22526+32¢xty ou x=ligne et

30 DEF FN A(X,Y)=22520+32#K+Y
20 FOR I=0 TO 21

JO PRINT esse be"
40 NEXT I

5G INPUT AT O,0;*Ligne:* yx, "Colomer" gy’

"INK:";
50 POKE FN als

To SO

aperfatink

i

Il règne une grande confusion autour du GL. La question est:
que le OL est un 32, un 16 cu un 8 bits
Tout dépen ü du point de vue. Pour l'instant disons que le
microprocesssury le MC68008, qui constitue le coeur du GL est un
6/32 bits. Mais voyons d'abord ce qu'est un microprocesseur.

Ki

roprocesseur 8 = ag 4 „152
shack} et le 4502 ee Le 68008 du ÔL est ce ps ’on
appelle un B/32 bits parce qu'il possède un BUS de données (2)
de 8 et E effectue ses opérations sur 32 Bes Il est

ont au INTEL 8088 du IBM PC qui est un 8/15

ts, séde un BUS de données de 8 bits et ace ses
opérations sur ié bits, Le Macintosh de APPLE est 16/32 bits
avec son MESO.

MCE3008 est la version "économique" du MC68000. En fait la
serie 63000 de MOTOROLA constitue un véritable famille, Le 68000
ui-meme possède un BUS de données de lé bits, le 58009 en a un
bits, le 68020 quant à lui en a un de 32 bits. L’avantage du
2008 est comme nous avons dit économique car les circuits
intégrés (mémoires...) qui sont autour de MPU sont fait pour des
8 bits, donc plus disponible et économique , et les connecteurs

sont moins imposant (un BUS de B bits prend moins de place qu'un
BUS de 14 bits). En fait la différence entre un 48008 et un
ae est essentiellement HARDWARE. LOGICIELLEMENT parlant les
EU Y

ont COMPATIBLE,

32 bits (comme le 68000), L
istre est qu'il faut moins da

tration. Le

its, Donc il pet

ur les micraprac esseur

r 2

ca

BUS de à

comme U

t
de vue compatibilité,

ii) Le QL possède un second CPU, le INTEL 18049, qui s'occupe de
A

ia lecture du clavier, de la génération du som de 1
réception RS-232C. et des fonctions de l'horloge en temps
réel. Egalement Qautres circuits spéciales à SINCLAIR sont
présent. Ceux-ci s'occupent de la gestion de la mémoire, de
Té i i la transmission 85-2320 et de

E

Encore un autre set de caractères alternatifs, Tapez le petit

Programme Suivant et faites RUN. Gogez patient car le programmme

prend un peu temps cour créer les nouveaux

terminé, faites POKE 23507,2349. Les
devraient maintenant apparaitre à l'écran.

caractères, d Kei
NOUVEAUX caractères

Pour sauver le nouveau set de caractères faites:
SAVE "car CODE 64000, 748

ractères faites:

: LOAD ""CODE : POKE 23407,2497

839
Four revenir au — normaux du 2058 faites:

FOKE 23607,50

AK LEMA. oO: LE

e i = E ۲4 11-1 FLASH
DEN 5
ZO FON pi ده‎ Eq R 2161129 FEI
Gt LEY. ۳ سج تا اه‎ ES vom:
du AF bed = FT Cty ch
ra, DA
na IF besa EAT £ Ea ae dÎ
D, B + d '
Ei AF br DE = EMT D e
E m,b48 5
FPA IF bait = J FJ UT ZE at

E ۲۷ شب‎ - BL
Ou EF ERR? Di e
E om, ËB $ +
SE IF 3 THE! HO
OS XF P ThE Di
RUES LEA zz AU CTT + OÉ z

Hs "LIM

T fkr = ABE W Es

THETA 5
Ki d Ci
DOE Pi p Ë

R NME ROME

I THEM RIRE
LEN THEM PEE
Zah THEN PAIE
State

AH THE

E Mi. DAS
OR PH pl
]-[ 2 #۷ 8 mM

4